﻿Public Class Promocione
    Public Sub New()
        _productos = New Collection
    End Sub

    Private _idCategoria As Integer
    Public Property idCategoria() As Integer
        Get
            Return _idCategoria
        End Get
        Set(ByVal value As Integer)
            _idCategoria = value
        End Set
    End Property

    Private _nombre As String
    Public Property nombre() As String
        Get
            Return _nombre
        End Get
        Set(ByVal value As String)
            _nombre = value
        End Set
    End Property

    Private _descripcion As String
    Public Property descripcion() As String
        Get
            Return _descripcion
        End Get
        Set(ByVal value As String)
            _descripcion = value
        End Set
    End Property

    Private _productos As Collection
    Public Property productos() As Collection
        Get
            Return _productos
        End Get
        Set(ByVal value As Collection)
            _productos = value
        End Set
    End Property

    Public Sub agregarProducto(ByVal p As Producto)
        _productos.Add(p)
    End Sub
End Class
